home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / text / edit / vim60rt.lha / Vim / vim60 / syntax / latte.vim < prev    next >
Encoding:
Text File  |  2001-05-11  |  3.9 KB  |  99 lines
  1. " Vim syntax file
  2. " Language:    Latte
  3. " Maintainer:    Nick Moffitt, <nick@zork.net>
  4. " Last Change:    14 June, 2000
  5. "
  6. " Notes:
  7. " I based this on the TeX and Scheme syntax files (but mostly scheme).
  8. " See http://www.latte.org for info on the language.
  9.  
  10. " For version 5.x: Clear all syntax items
  11. " For version 6.x: Quit when a syntax file was already loaded
  12. if version < 600
  13.   syntax clear
  14. elseif exists("b:current_syntax")
  15.   finish
  16. endif
  17.  
  18. syn match latteError "[{}\\]"
  19. syn match latteOther "\\{"
  20. syn match latteOther "\\}"
  21. syn match latteOther "\\\\"
  22.  
  23. if version < 600
  24.   set iskeyword=33,43,45,48-57,63,65-90,95,97-122,_
  25. else
  26.   setlocal iskeyword=33,43,45,48-57,63,65-90,95,97-122,_
  27. endif
  28.  
  29. syn region latteVar matchgroup=SpecialChar start=!\\[A-Za-z_]!rs=s+1 end=![^A-Za-z0-9?!+_-]!me=e-1 contains=ALLBUT,latteNumber,latteOther
  30. syn region latteVar matchgroup=SpecialChar start=!\\[=\&][A-Za-z_]!rs=s+2 end=![^A-Za-z0-9?!+_-]!me=e-1 contains=ALLBUT,latteNumber,latteOther
  31. syn region latteString    start=+\\"+ skip=+\\\\"+ end=+\\"+
  32.  
  33. syn region latteGroup    matchgroup=Delimiter start="{" skip="\\[{}]" matchgroup=Delimiter end="}" contains=ALLBUT,latteSyntax
  34.  
  35. syn region latteUnquote matchgroup=Delimiter start="\\,{" skip="\\[{}]" matchgroup=Delimiter end="}" contains=ALLBUT,latteSyntax
  36. syn region latteSplice matchgroup=Delimiter start="\\,@{" skip="\\[{}]" matchgroup=Delimiter end="}" contains=ALLBUT,latteSyntax
  37. syn region latteQuote matchgroup=Delimiter start="\\'{" skip="\\[{}]" matchgroup=Delimiter end="}"
  38. syn region latteQuote matchgroup=Delimiter start="\\`{" skip="\\[{}]" matchgroup=Delimiter end="}" contains=latteUnquote,latteSplice
  39.  
  40. syn match  latteOperator   '\\/'
  41. syn match  latteOperator   '='
  42.  
  43. syn match  latteComment    "\\;.*$"
  44.  
  45. " This was gathered by slurping in the index.
  46.  
  47. syn keyword latteSyntax __FILE__ __latte-version__ contained
  48. syn keyword latteSyntax _bal-tag _pre _tag add and append apply back contained
  49. syn keyword latteSyntax caar cadr car cdar cddr cdr ceil compose contained
  50. syn keyword latteSyntax concat cons def defmacro divide downcase contained
  51. syn keyword latteSyntax empty? equal? error explode file-contents contained
  52. syn keyword latteSyntax floor foreach front funcall ge?  getenv contained
  53. syn keyword latteSyntax greater-equal? greater? group group? gt? html contained
  54. syn keyword latteSyntax if include lambda le? length less-equal? contained
  55. syn keyword latteSyntax less? let lmap load-file load-library lt?  macro contained
  56. syn keyword latteSyntax member?  modulo multiply not nth operator? contained
  57. syn keyword latteSyntax or ordinary quote process-output push-back contained
  58. syn keyword latteSyntax push-front quasiquote quote random rdc reverse contained
  59. syn keyword latteSyntax set!  snoc splicing unquote strict-html4 contained
  60. syn keyword latteSyntax string-append string-ge?  string-greater-equal? contained
  61. syn keyword latteSyntax string-greater?  string-gt?  string-le? contained
  62. syn keyword latteSyntax string-less-equal?  string-less?  string-lt? contained
  63. syn keyword latteSyntax string?  subseq substr subtract  contained
  64. syn keyword latteSyntax upcase useless warn while zero?  contained
  65.  
  66.  
  67. " If it's good enough for scheme...
  68.  
  69. syn sync match matchPlace grouphere NONE "^[^ \t]"
  70. " ... i.e. synchronize on a line that starts at the left margin
  71.  
  72. " Define the default highlighting.
  73. " For version 5.7 and earlier: only when not done already
  74. " For version 5.8 and later: only when an item doesn't have highlighting yet
  75. if version >= 508 || !exists("did_latte_syntax_inits")
  76.   if version < 508
  77.     let did_latte_syntax_inits = 1
  78.     command -nargs=+ HiLink hi link <args>
  79.   else
  80.     command -nargs=+ HiLink hi def link <args>
  81.   endif
  82.  
  83.   HiLink latteSyntax        Statement
  84.   HiLink latteVar            Function
  85.  
  86.   HiLink latteString        String
  87.   HiLink latteQuote            String
  88.  
  89.   HiLink latteDelimiter        Delimiter
  90.   HiLink latteOperator        Operator
  91.  
  92.   HiLink latteComment        Comment
  93.   HiLink latteError            Error
  94.  
  95.   delcommand HiLink
  96. endif
  97.  
  98. let b:current_syntax = "latte"
  99.